home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / db4less3.arc / EMPRATE.FMT < prev    next >
Text File  |  1990-06-16  |  1KB  |  53 lines
  1. ********************************************************************************
  2. *-- Name....: EMPRATE.FMT
  3. *-- Date....: 11-17-88
  4. *-- Version.: dBASE IV, Format 1.0
  5. *-- Notes...: Format files use "" as delimiters!
  6. ********************************************************************************
  7.  
  8. *-- Format file initialization code --------------------------------------------
  9.  
  10. IF SET("TALK")="ON"
  11.    SET TALK OFF
  12.    lc_talk="ON"
  13. ELSE
  14.    lc_talk="OFF"
  15. ENDIF
  16.  
  17. *-- This form was created in COLOR mode
  18. SET DISPLAY TO COLOR
  19.  
  20. lc_status=SET("STATUS")
  21. *-- SET STATUS was ON when you went into the Forms Designer.
  22. IF lc_status = "OFF"
  23.    SET STATUS ON
  24. ENDIF
  25.  
  26.  
  27. *-- @ SAY GETS Processing. -----------------------------------------------------
  28.  
  29. *--  Format Page: 1
  30.  
  31. @ 2,23 SAY "EMPLOYEE PAY RATE INFORMATION FORM" 
  32. @ 4,19 TO 14,60 
  33. @ 6,23 SAY "Employee ID Number" 
  34. @ 6,50 GET empid PICTURE "AA999" 
  35. @ 9,23 SAY "Pay Rate Date" 
  36. @ 9,49 GET ratedate 
  37. @ 12,23 SAY "Pay Rate" 
  38. @ 12,50 GET rate PICTURE "999.99" 
  39.  
  40. *-- Format file exit code -----------------------------------------------------
  41.  
  42. *-- SET STATUS was ON when you went into the Forms Designer.
  43. IF lc_status = "OFF"  && Entered form with status off
  44.    SET STATUS OFF     && Turn STATUS "OFF" on the way out
  45. ENDIF
  46.  
  47. IF lc_talk="ON"
  48.    SET TALK ON
  49. ENDIF
  50.  
  51. RELEASE lc_talk,lc_fields,lc_status
  52. *-- EOP: EMPRATE.FMT
  53.